home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / plnk081.zip / pilot-link.0.8.1 / Perl5 / typemap < prev   
Text File  |  1997-07-14  |  984b  |  59 lines
  1. TYPEMAP
  2. PDA::Pilot::File *    T_PTROBJ
  3. PDA::Pilot::DLP *    T_PTROBJ
  4. PDA::Pilot::DLP::DB *    T_PTROBJ
  5. PDA::Pilot::DLP::ResourceDB *    T_PTROBJ
  6. PDA::Pilot::DLP::RecordDB *    T_PTROBJ
  7. DlpDB    T_PTROBJ
  8. DBInfo    T_DBInfo
  9. UserInfo    T_UserInfo
  10. Char4    T_CHAR4
  11. Result    T_RESULT
  12.  
  13. INPUT
  14. T_DBInfo
  15.     unpack_dbinfo($arg, $var);
  16.  
  17. T_UserInfo
  18.     unpack_userinfo($arg, $var);
  19.  
  20. T_CHAR4
  21.     {
  22.         if (SvIOKp($arg) || SvNOKp($arg))
  23.             $var = SvIV($arg);
  24.         else {
  25.             int len;
  26.             char * c = SvPV($arg, len);
  27.             $var = makelong(c);
  28.         }
  29.     }
  30. T_PTROBJ
  31.     if (sv_derived_from($arg, \"${ntype}\")) {
  32.         IV tmp = SvIV((SV*)SvRV($arg));
  33.         $var = ($type) tmp;
  34.     }
  35.     else
  36.         croak(\"$var is not of type ${ntype}\")
  37.  
  38. OUTPUT
  39. T_DBInfo
  40.     pack_dbinfo($arg, $var, 0);
  41.  
  42. T_UserInfo
  43.     pack_userinfo($arg, $var, 0);
  44.  
  45. T_CHAR4
  46.     {
  47.         char * c = printlong($var);
  48.         sv_setpvn($arg, c, 4);
  49.     }
  50.  
  51. T_RESULT
  52.     if ($var < 0) {
  53.         sv_setsv($arg, &sv_no);
  54.         self->errno = $var;
  55.     } else
  56.         sv_setsv($arg, &sv_yes);
  57. T_PTROBJ
  58.     sv_setref_pv($arg, \"${ntype}\", (void*)$var);
  59.